home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_503_EachMenu < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.0 KB  |  37 lines
  1. %case usesAppDialogs%
  2.     %for each menuitem gen usesAppDialog%
  3. %case setup%
  4.     %if main|hierarchical%
  5.         %if menuname = Font%
  6.             AddResMenu (GetMHandle (%menuID%), 'FONT');        {%menuname% menu}
  7.             gBartender.SetDimOption (%menuID%, dimNONE);
  8.         %elsif menuname = Sound%
  9.             AddResMenu (GetMHandle (%menuID%), 'snd ');        {%menuname% menu}
  10.             gBartender.SetDimOption (%menuID%, dimNONE);
  11.         %endif%
  12.     %endif%
  13. %case addPopup%
  14.     %if not main|hierarchical%
  15.         %if menuname = Font%
  16.             macMenu := GetMenu (%menuID%);        {%menuname% menu}
  17.             FailNILRes (macMenu);
  18.             AddResMenu (macMenu, 'FONT');
  19.         %elsif menuname = Sound%
  20.             macMenu := GetMenu (%menuID%);        {%menuname% menu}
  21.             FailNILRes (macMenu);
  22.             AddResMenu (macMenu, 'snd ');
  23.         %endif%
  24.     %endif%
  25. %case updateAppMenus%
  26.     %for each menuitem gen updateAppMenu%
  27. %case updateDocMenus%
  28.     %for each menuitem gen updateDocMenu%
  29. %case handleAppItems%
  30.     %for each menuItem gen handleAppItem%
  31. %case handleDocItems%
  32.     %for each menuItem gen handleDocItem%
  33. %case defineMenu%
  34.     %menuname%ID%        %= %MenuID%; 
  35.         %for each menuItem gen defineItem%
  36.  
  37.